sayHello :: String -> IO ()
-- type aliasing - above is equivalent to:
-- sayHello :: [Char] -> IO ()
sayHello x =
    putStrLn ("Hello, " ++ x ++ "!")
triple x = x * 3
mult1 = x * y
 where x = 5
       y = 6
